home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 11q1.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-04  |  1.1 KB  |  46 lines
  1. on startMovie
  2.   global qtChan, gCursorReady, gMagCursor, gMoviePlay
  3.   gCursorReady = 1
  4.   gMagCursor = "magCursor"
  5.   puppetSprite(46, 1)
  6.   gMoviePlay = 2
  7.   qtChan = 11
  8.   sprite(qtChan).volume = 256
  9.   cast("tuna").directToStage = 1
  10.   preLoad(qtChan - 1)
  11. end
  12.  
  13. on idle
  14.   global gCursorReady
  15.   if gCursorReady = 1 then
  16.     cursor(200)
  17.     checkCursors()
  18.     set the locH of sprite 46 to the mouseH
  19.     set the locV of sprite 46 to the mouseV
  20.     updateStage()
  21.   end if
  22. end
  23.  
  24. on checkCursors
  25.   global gMagCursor, gMoviePlay
  26.   set the castNum of sprite 46 to the number of member "curs1"
  27.   if rollOver(4) then
  28.     set the castNum of sprite 46 to the number of member "hotCursor"
  29.   end if
  30.   if rollOver(5) then
  31.     set the castNum of sprite 46 to the number of member "hotCursor"
  32.   end if
  33.   if rollOver(13) then
  34.     if gMoviePlay = 0 then
  35.       set the castNum of sprite 46 to the number of member "hotCursor"
  36.     else
  37.       set the castNum of sprite 46 to the number of member "nonCursor"
  38.     end if
  39.   end if
  40.   repeat with i = 20 to 22
  41.     if rollOver(i) then
  42.       set the castNum of sprite 46 to the number of member "hotCursor"
  43.     end if
  44.   end repeat
  45. end
  46.